home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
GETCLR.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-10
|
323b
|
14 lines
'Date: 05-19-92 (02:38)
'From: RICH GELDREICH
'To get the original red, green, & blue color values from a VGA
'adaptor, you could use this:
Out &h3c7, Attribute
Out &h3c8, Attribute
Red=inp(&H3c9)
Green=inp(&h3c9)
Blue=inp(&h3c9)
' Where "attribute" is the color you want to inspect.